home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 1 / CU Amiga Magazine CD-ROM Special Edition (1995)(EMAP Images)(GB)[Issue 1995-11].iso / Aminet / comm / cnet / cnettoolkit2a.lha / Routines / WHO < prev   
Text File  |  1994-12-13  |  434b  |  5 lines
  1. WHO: procedure;transmit 'r1#  'left('Handle',21)left('AG SPD From',38)left('Location',16)'r0';getuser 2225094
  2.     hp=result;do po=0 to hp;getportid po;pi=result;if pi=-1 then iterate;loadscratch pi;savescratch (-pi)
  3.     getscratch 1;ha=result;getscratch 15;ac=result;getwhere po;wh=result;getscratch 1201214;cp=result%10
  4.     getscratch 4;fr=result;transmit left(po,3)left(ha,21)left(ac,3)left(cp,4)left(fr,31)left(wh,16);end;return
  5.